Nuprl Lemma : coprime_bezout_id0
11,40
postcript
pdf
a
,
b
:
. coprime(
a
;
b
)
(
x
,
y
:
. assoced(((
a
*
x
) + (
b
*
y
)); 1))
latex
Definitions
t
T
,
P
Q
,
x
:
A
.
B
(
x
)
,
x
:
A
.
B
(
x
)
,
True
,
T
,
prop{i:l}
,
coprime(
a
;
b
)
Lemmas
coprime
wf
,
bezout
ident
,
gcd
p
sym
,
gcd
unique
,
assoced
wf
,
true
wf
,
squash
wf
origin
a,b:
. coprime(a; b) 
(
x,y:. assoced(((a * x) + (b * y)); 1)) a,b:. coprime(a; b) (x,y:. assoced(((a * x) + (b * y)); 1)) 
T Qx:A. B(x)x:A. B(x)
T